home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tf.d64 / alien city.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  126 lines
  1. 0 POKE45,198:POKE46,25:POKE51,.:POKE52,32:POKE55,.:POKE56,32:CLR:POKE53272,25
  2. 5 REM 'ALIEN CITY BLITZ' (C64 VERSION)        BY ROGER D. BURGE, TPUG #2667
  3. 10 REM DECEMBER, 1984, LONDON,ONTARIO,         CANADA
  4. 15 REM*SAVE BEFORE RUNNING
  5. 30 GOTO5000
  6. 35 X=X+U:IFX=FTHENX=.:Y=Y+U
  7. 40 IFPEEK(N)=LTHEN200
  8. 45 PRINTLEFT$(D$,Y)LEFT$(B$,X)" [218][219][220]":SYSM
  9. 55 ONPEEK(D)GOTO35,35,60,65
  10. 60 PRINTPEEK(Q)+K*PEEK(R)"":GOTO35
  11. 65 POKEC+U,6:POKEC+E,129:FORT=15TO.STEP-U:POKEV,T
  12. 66 IFPEEK(PEEK(253)+K*PEEK(254))=65THENPOKEPEEK(253)+K*PEEK(254),32
  13. 70 FORI=.TOK:NEXT:NEXT:POKEC+E,.:POKEV,15:GOSUB7000
  14. 75 PRINT"[144]"SPC(12)"YOU HAVE FAILED!
  15. 80 [153]""[166]11)"PLAY AGAIN?  (Y/N)":[151]198,.
  16. 85 [161]A$:[139]A$[178]"Y"[167][141]995:[137]35
  17. 90 [139]A$[178]"N"[167]19000
  18. 95 [137]85
  19. 200 X[178]X[171]U:[153]"STOP"[166]16)"SUCCESS!":[153]""[166]20[171](8[170][195](P$(SL)))[173]D);
  20. 201 [139]SL[179]10[167][153]"YOU ARE "P$(SL)
  21. 205 SC[178][194](684)[170]K[172][194](685)
  22. 210 X[178]X[170]U
  23. 211 [139]X[178]F[167]X[178].:Y[178]Y[170]U:SC[178]SC[170]SL:[153]""SC"
  24. 215 IFY=22ANDX=18THEN225
  25. 220 PRINTLEFT$(D$,Y)LEFT$(B$,X)" [218][219][220]":GOTO210
  26. 225 POKE685,SC/K:POKE684,SC-PEEK(685)*K:GOSUB7000
  27. 226 IFSL=10THEN500
  28. 227 PRINT"[144]"SPC(12)"NOW TRY CITY #"RIGHT$(STR$(SL+1),D)
  29. 230 FORT=.TOK*12:NEXT:  REM LAST CITY?
  30. 235 GOSUB1000:GOTO35
  31. 500 POKEC+U,55:FORT=12TODSTEP-U:POKEC+E,17:FORI=.TO150:NEXT:POKEC+E,.:POKE53280,T
  32. 505 POKE646,T:PRINT""SPC(20-(8+LEN(P$(SL)))/D);
  33. 510 PRINT"YOU ARE "P$(SL):NEXT
  34. 520 POKE53280,U:GOTO80
  35. 995 POKEQ,.:POKER,.:SL=.:SC=.
  36. 1000 POKE681,.:PRINT"[147]";:POKE53281,U:SYS49392
  37. 1003 H$=STR$(HI):X=.:Y=U
  38. 1004 FORT=.TO20:PRINT"";:NEXT
  39. 1005 PRINT"[149]            ALIEN CITY BLITZ            ";
  40. 1015 PRINT"           BY  ROGER D. BURGE           ";
  41. 1020 PRINT" SCORE:         CITY #                  "
  42. 1025 PRINT"[157][148][148]":POKE218,132:PRINT"";:SL=SL+U
  43. 1030 FORT=.TO23:PRINT"";:NEXT:PRINT""SC"";
  44. 1035 FORT=.TO23:PRINT"";:NEXT:PRINTSPC(22)RIGHT$(STR$(SL),D)"";
  45. 1040 FORT=.TO23:PRINT"";:NEXT:PRINTSPC(34-LEN(H$))"HIGH:"H$""
  46. 1045 POKED,U:POKE251,4:POKE252,4:POKE253,43:POKE254,4:L=10+SL:POKEN,.
  47. 1100 FORT=1919-SL/DTO1928+SL/D:BU=RND(.)*E+U:RF=SL/5
  48. 1105 FORI=T-FTOT-F*(INT(RND(.)*(6+RF))+D)STEP-F:POKEI,BU+80:POKEI+C,C(BU-U)
  49. 1106 NEXT
  50. 1110 POKEI,BU+84:POKEI+C,C(BU-U):NEXT:RETURN
  51. 5000 X=RND(-TI):PRINT"[147]":POKE53281,.:POKE53280,.
  52. 5020 FORX=.TO39:B$=B$+"":NEXT:D$=""
  53. 5025 FORY=.TO21:D$=D$+"":NEXT
  54. 5030 X=.:Y=1:Q=684:R=685:K=256:L=U:N=680:M=49152:F=40:U=Y:D=2:E=4
  55. 5035 C=54272:V=C+24:DIMC(3),P$(10):C(.)=12:C(U)=.:C(D)=12:C(3)=.
  56. 5075 FORT=679TO685:POKET,.:NEXT:GOSUB6000
  57. 5080 FORT=49152TO49412:READI:POKET,I:NEXT
  58. 5090 FORT=UTO10:READP$(T):NEXT
  59. 5095 POKE681,1:SYS49392:POKE53265,PEEK(53265)OR64:POKE53283,D:POKE53282,6
  60. 5100 FORT=1024TO1063:POKET,156:POKET+960,156:NEXT
  61. 5105 FORT=1064TO1944STEPF:POKET,156:POKET+39,156:NEXT
  62. 5110 GOSUB12000:PRINT""SPC(10)"INSRUCTIONS? (Y/N)":POKE198,.
  63. 5115 GETA$:IFA$="Y"THEN13000
  64. 5120 IFA$="N"THEN5200
  65. 5125 GOTO5115
  66. 5199 GOTO5199
  67. 5200 PRINT"[147]":POKE53265,PEEK(53265)AND191:POKE53280,U:GOSUB995:GOTO35
  68. 6000 FORT=CTOV:POKET,.:NEXT:POKEC+5,129:POKEC+6,129:POKEC,188:POKEC+U,188
  69. 6050 POKEV,15
  70. 6055 REM FORI=UTO55:NEXT:NEXT:POKEC+E,.
  71. 6100 RETURN
  72. 7000 SC=PEEK(Q)+PEEK(R)*K
  73. 7002 IFSC>HITHENHI=SC
  74. 7003 H$=STR$(HI):PRINT"";
  75. 7004 FORT=.TO23:PRINT"";:NEXT:PRINTSPC(34-LEN(H$))"HIGH:"H$"":RETURN
  76. 12000 PRINT""SPC(10)"[160][160][193][204][201][197][206][160][195][201][212][217][160][194][204][201][212][218][160][160]"
  77. 12005 PRINTSPC(10)"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"       
  78. 12010 PRINTSPC(10)"[160][194][217][160][160][210][207][199][197][210][160][196][174][160][194][213][210][199][197][160]"
  79. 12015 FORT=1TO18:PRINT"                                      ";:NEXT
  80. 12020 PRINT"";:RETURN
  81. 13000 PRINT"[145][145][145][145][145]THE OBJECT OF THE GAME IS TO DESTROY";
  82. 13005 PRINT"OUR ALIEN ENEMY'S CITIES.
  83. 13010 [153]"YOU MUST FLY A SPACE SHUTTLE OVER   ";
  84. 13015 [153]"THEIR PLANET'S SURFACE AND DROP BOMBS";
  85. 13020 [153]"ON THE CITIES ON YOUR ROUTE.
  86. 13025 PRINT"YOUR COMPUTER WILL GUIDE YOUR CRAFT OVER";
  87. 13030 PRINT"EACH CITY. ALL YOU HAVE TO DO IS RELEASE";
  88. 13035 PRINT"THE BOMBS.
  89. 13040 [153]"TO DROP A BOMB PRESS THE FIREBUTTON  ";
  90. 13045 [153]"ON EITHER JOYSTICK OR PRESS [7
  91. 13050 PRINT"IF YOU DESTROY THE WHOLE CITY THEN  ";
  92. 13055 PRINT"YOU GET BONUS POINTS AND A CHANCE AT ";
  93. 13060 PRINT"THE NEXT TARGET.
  94. 13065 [153]"FINISH 10 CITIES TO BE A CHAMPION.
  95. 13070 PRINTSPC(11)" PRESS [7 TO PLAY ":POKE198,.
  96. 13075 GETA$:IFA$="[136]"THEN5200
  97. 13080 GOTO13075
  98. 19000 FORT=.TOK*12:NEXT:SYS64738
  99. 20000 DATA165,251,24,105,1,133,251,165,252,105,0,133,252
  100. 20002 DATA165,2,201,1,208,74
  101. 20005 DATA165,197,201,3,208,7,169,2,133,2,56,176,48
  102. 20020 DATA173,1,220,41,16
  103. 20025 DATA201,0,208,7,169,2,133,2,56,176,32
  104. 20030 DATA173,0,220,41,16
  105. 20035 DATA201,0,208,7,169,2,133,2,56,176,16
  106. 20036 DATA165,253,24,105,1,133,253,165,254,105,0,133,254,56,176,87
  107. 20040 DATA169,188,141,1,212,141,167,2,169,17,141,4,212
  108. 20050 DATA173,167,2,56,233,2,141,1,212,141,167,2
  109. 20051 DATA162,0,169,32,145,253
  110. 20055 DATA165,253,24,105,40,133,253,165,254,105,0,133,254
  111. 20056 DATA165,254,201,7,208,40,165,253,201,111,48,34
  112. 20057 DATA165,251,24,105,39,133,253,165,252,105,0,133,254,165,2,201,3,208,3
  113. 20058 DATA238,168,2,169,1,133,2,169,0,141,4,212,56,176,57
  114. 20060 DATA160,0,177,253,201,32,240,43
  115. 20065 DATA169,3,133,2,169,129,141,4,212
  116. 20070 DATA173,172,2,24,105,5,141,172,2,173,173,2,105,0,141,173,2
  117. 20071 DATA169,6,141,134,2,169,1,133,199
  118. 20072 DATA24,162,24,160,7,32,240,255
  119. 20075 DATA160,0,169,65,145,253
  120. 20080 DATA162,0,177,251,201,32,240,4
  121. 20085 DATA169,4,133,2,96
  122. 21000 DATA162,0,173,169,2,157,0,216,157,0,217,157,0,218,157,0,219
  123. 21005 DATA232,208,241,96
  124. 25000 DATA"DOING FINE","GOOD!!","EXCELLENT!","GREAT!","AN ACE","FANTASTIC!"
  125. 25005 DATA"UNBELIEVABLE","INCREDIBLE","ALMOST A CHAMPION!","A WORLD CHAMPION!!"
  126.